1000 POKE50257,08 :REM SYSTEMPOKE
1010 POKE50259,001:REM UNTERGRENZE (LB)
1020 POKE50260,021:REM UNTERGRENZE (HB)
1030 POKE50261,003:REM OBERGRENZE  (LB)
1040 POKE50262,026:REM OBERGRENZE  (HB)
1050 :
1060 FE=04352     :REM SYS FENSTER EIN
1070 FA=04601     :REM SYS FENSTER AUS
1080 :
1090 REM DEMO FUER SCREEN DISPLAY
1999 :
2000 POKE53280,0:POKE53281,0:PRINTCHR$(14)CHR$(8)CHR$(147);
2050 PRINT"[158]   [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
2100 [153]"   (null)  (null)CLOSELENCLOSE(null)CLOSEVALCLOSEVALCLOSE(null)CLOSECLOSECLOSESTR$CLOSERIGHT$CLOSE(null)CLOSE(null)CLOSE(null)CLOSEATNCLOSE(null)CLOSE (null)"
2110 [153]"   (null)        VON LEFT$ELMUT (null)APE        (null)"
2150 [153]"   /TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
2499 :
2500 SYSFE,5,20,0,25:PRINT"[147]";
2510 PRINT"[205]IT DIESEM [200]ILFSPROGRAMM HABEN [211]IE DIE [205]OEGLICH-  KEIT ";
2520 PRINT"BIS ZU 8 [194]ILDSCHIRM-FENSTER ([215][201][206][196][207][215][211]) AUF [201]H-REM [195]64 ZU ";
2530 PRINT"BEHERRSCHEN."
2540 PRINT"[158][196]RUECKEN [211]IE  +";
2800 GETG$:IFG$<>"+"ANDG$<>"Z"THEN2800
2810 IFG$="Z"THENSYSFA:PRINTPEEK(2):END
2999 :
3000 SYSFE,7,18,15,21:PRINT"[147]";
3010 PRINT"[196]IESE [215][201][206][196][207][215][211] KOENNENSICH UEBERLAPPEN. [196]ER[201]NHALT DER UEBERDECKT";
3020 PRINT"WIRD, BLEIBT DABEI   ERHALTEN UND KANN MIT";
3030 PRINT"[218]URUECKBLAETTERN WIE-DER SICHTBAR GEMACHT WERDEN. ";
3040 PRINT"[196]RUECKEN [211]IE EINMAL DIE "CHR$(34)"-"CHR$(34)" [212]ASTE!"
3050 PRINT"[158] ODER  -";
3500 GETG$:IFG$<>"-"ANDG$<>"+"THEN3500
3510 IFG$="-"THENSYSFA:GOTO2800
3999 :
4000 SYSFE,11,13,8,22:PRINT"[147]";
4010 PRINT"[196]IESE [215][201][206][196][207][215]-[212]ECHNIK  KENNEN [211]IE VIELLEICHT VON [208]ERSONALCOMPUTERN.";
4020 PRINT"[202]ETZT KOENNEN [211]IE AUCHMIT DEM "CHR$(34)"KLEINEN"CHR$(34)" [195]64 ";
4030 PRINT"DIESE [204]EISTUNGSMERK-  MALE NUTZEN."
4500 GETG$:IFG$<>"-"ANDG$<>"+"THEN4500
4510 IFG$="-"THENSYSFA:GOTO3500
4999 :
5000 SYSFE,6,9,4,27:PRINT"[147][159]";
5120 PRINT"[196]AS [214]OR- UND [218]URUECKBLAET- TERN WIRD VON [194][193][211][201][195] AUS JE-WEILS MIT";
5130 PRINT" EINEM [211][217][211]-[193]UFRUF DURCHGEFUEHRT. [196]ER [208][210][201][206][212] - [194]EFEHL";
5140 PRINT" SCHREIBT NACH DER   [198]ENSTERDEFINITION NUR NOCH IN DEM NEU ";
5150 PRINT"BEGRENZTEN [194]E-  REICH. [196]IE [211][217][206][212][193][216] ENTNEHMEN[211]IE BITTE DEM [194]EIHEFT.";
5500 GETG$:IFG$<>"-"ANDG$<>"+"THEN5500
5510 IFG$="-"THENSYSFA:GOTO4500
5999 :
6000 SYSFE,9,14,19,16:PRINT"[147]";
6120 PRINT"[215]ENN [211]IE DIESES [200]ILFSPROGRAMM  "
6125 PRINT"AUF [201]HREN [196]ATEN-TRAEGER SICHERN WOLLEN, DRUECKEN[211]IE ";
6130 PRINT"[195][212][210][204] [211] .    [196]IESE [196]EMONSTRA-TION WIRD DABEI NICHT MIT";
6140 PRINT"GE-    SICHERT."
6500 GETG$:IFG$<>"-"ANDG$<>"+"THEN6500
6510 IFG$="-"THENSYSFA:GOTO5500
6999 :
7000 SYSFE,7,6,2,20:PRINT"[147][129]";
7120 PRINT"[205]IT ETWAS [213]EBUNG    KOENNEN [211]IE INTERES-SANTE [193]NWENDUNGSBE- REICHE";
7130 PRINT" FUER DIESE   NEUE [215][201][206][196][207][215]-[212]ECHNIK ENTWICKELN."
7500 GETG$:IFG$<>"-"ANDG$<>"+"THEN7500
7510 IFG$="-"THENSYSFA:GOTO6500
7520 FORI=0TO4:SYSFA:NEXTI:GOTO2800